J-Mac Electronics & Home Comics/J-Mac Electronics & Home Comics.iso/mac/J-MAC/G35F/G33_TIPS.Dxr/00055.ls

Text File | 1998-01-22 | 4.5 KB | 240 lines

global i, gno, jumplistkeyg, jumplistkeyz, jumplistkeyb

on startMovie
  set mycursor to [1, 2]
  repeat with i = 11 to 18
    set the cursor of sprite i to mycursor
  end repeat
  set jumplistkeyg to ["G1", "G2", "G3", "G4", "G5", "G6"]
  set jumplistkeyb to ["B1", "B2", "B3", "B4", "B5", "B6"]
  set jumplistkeyz to ["Z1", "Z2", "Z3", "Z4", "Z5", "Z6", "Z7", "Z8", "Z9", "Z10", "Z11", "Z12"]
  set volset to the soundLevel
  if the soundEnabled = 0 then
    set the soundEnabled to 1
  end if
end

on donextg
  if (gno + 1) = 7 then
    set gno to 0
  end if
  go(getAt(jumplistkeyg, gno + 1))
end

on dobackg
  if (gno - 1) = 0 then
    set gno to 7
  end if
  go(getAt(jumplistkeyg, gno - 1))
end

on donextb
  if (gno + 1) = 7 then
    set gno to 0
  end if
  go(getAt(jumplistkeyb, gno + 1))
end

on dobackb
  if (gno - 1) = 0 then
    set gno to 7
  end if
  go(getAt(jumplistkeyb, gno - 1))
end

on donextz
  if (gno + 1) = 13 then
    set gno to 0
  end if
  go(getAt(jumplistkeyz, gno + 1))
end

on dobackz
  if (gno - 1) = 0 then
    set gno to 13
  end if
  go(getAt(jumplistkeyz, gno - 1))
end

on doexit
  sound stop 1
  go("M2", "@::JMACMENU")
end

on dolink
  puppetSound(1, 1)
  sound fadeOut 1, 60 * 2
  delay(60 * 3)
  sound stop 1
  go(1, "G35_NANI")
end

on crtprof
  puppetSprite(6, 1)
  repeat while the stillDown
    set the memberNum of sprite 6 to 8
    updateStage()
  end repeat
  set the memberNum of sprite 6 to 7
  updateStage()
  puppetSprite(6, 0)
end

on crtopencara
  puppetSprite(8, 1)
  repeat while the stillDown
    set the memberNum of sprite 8 to 12
    updateStage()
  end repeat
  set the memberNum of sprite 8 to 11
  updateStage()
  puppetSprite(8, 0)
end

on crtopenbook
  puppetSprite(7, 1)
  repeat while the stillDown
    set the memberNum of sprite 7 to 10
    updateStage()
  end repeat
  set the memberNum of sprite 7 to 9
  updateStage()
  puppetSprite(7, 0)
end

on crtclose
  puppetSprite(9, 1)
  repeat while the stillDown
    set the memberNum of sprite 9 to 14
    updateStage()
  end repeat
  set the memberNum of sprite 9 to 13
  updateStage()
  puppetSprite(9, 0)
end

on crtlink
  puppetSprite(10, 1)
  repeat while the stillDown
    set the memberNum of sprite 10 to 16
    updateStage()
  end repeat
  set the memberNum of sprite 10 to 15
  updateStage()
  puppetSprite(10, 0)
end

on crtnext
  puppetSprite(20, 1)
  repeat while the stillDown
    set the memberNum of sprite 20 to 24
    updateStage()
  end repeat
  set the memberNum of sprite 20 to 23
  updateStage()
  puppetSprite(20, 0)
end

on crtback
  puppetSprite(21, 1)
  repeat while the stillDown
    set the memberNum of sprite 21 to 26
    updateStage()
  end repeat
  set the memberNum of sprite 21 to 25
  updateStage()
  puppetSprite(21, 0)
end

on crtnextb
  puppetSprite(20, 1)
  repeat while the stillDown
    set the memberNum of sprite 20 to 35
    updateStage()
  end repeat
  set the memberNum of sprite 20 to 34
  updateStage()
  puppetSprite(20, 0)
  puppetSprite(1, 0)
end

on crtbackb
  puppetSprite(21, 1)
  repeat while the stillDown
    set the memberNum of sprite 21 to 37
    updateStage()
  end repeat
  set the memberNum of sprite 21 to 36
  updateStage()
  puppetSprite(21, 0)
  puppetSprite(1, 0)
end

on crtyubil
  puppetSprite(23, 1)
  repeat while the stillDown
    set the memberNum of sprite 23 to 41
    updateStage()
  end repeat
  set the memberNum of sprite 23 to 40
  updateStage()
  puppetSprite(23, 0)
end

on crtyubir
  puppetSprite(24, 1)
  repeat while the stillDown
    set the memberNum of sprite 24 to 43
    updateStage()
  end repeat
  set the memberNum of sprite 24 to 42
  updateStage()
  puppetSprite(24, 0)
end

on crtzoomout
  puppetSprite(23, 1)
  repeat while the stillDown
    set the memberNum of sprite 23 to 49
    updateStage()
  end repeat
  set the memberNum of sprite 23 to 48
  updateStage()
  puppetSprite(23, 0)
  puppetSprite(1, 0)
end

on crtclose2
  puppetSprite(22, 1)
  repeat while the stillDown
    set the memberNum of sprite 22 to 28
    updateStage()
  end repeat
  set the memberNum of sprite 22 to 27
  updateStage()
  puppetSprite(22, 0)
end

on crtclose3
  puppetSprite(22, 1)
  repeat while the stillDown
    set the memberNum of sprite 22 to 39
    updateStage()
  end repeat
  set the memberNum of sprite 22 to 38
  updateStage()
  puppetSprite(22, 0)
  puppetSprite(1, 0)
end

on crtexit
  puppetSprite(21, 1)
  repeat while the stillDown
    set the memberNum of sprite 21 to 64
    updateStage()
  end repeat
  set the memberNum of sprite 21 to 63
  updateStage()
  puppetSprite(21, 0)
end